home *** CD-ROM | disk | FTP | other *** search
-
- ; Install script for WBSplitter
-
- (set old_level @user-level)
- (set @default-dest "")
-
- (set splitterprg "WBSplitter")
- (set splitterdoc "WBSplitter.guide")
- (set rqtlib "libs/reqtools.library")
- (set lhafile "c/lha")
- ;=============================================================================
- ; English strings
-
-
- (set #bad-kick "You must be using Kickstart 2.04 to install using this script!")
-
- (set #where-prg "In which drawer should WBSplitter be installed ?")
-
- (set #where-doc "In which drawer should WBSplitter.guide be installed ?")
-
- (set #where-lha "In which drawer should Lha be installed ?")
-
- (set #confirm-doc "\n\n\nDo you wish to install the documentation ?")
-
- (set #confirm-lha "\n\n\nDo you wish to install the Lha proramm ?")
-
- (set #copy-reqtools "Copying reqtools.library to Libs:...")
-
- (set #copy-lha "Copying Lha programm...")
-
- (set #install-msg
- (cat "\n\nWBSplitter installation script.\n"
- "This script installs WBSplitter on your Amiga.\n\n"
- "Read the documentation for more information\n"
- "on the distribution of WBSplitter.\n\n"
- "WBSplitter © 1992-1994 Michael Meier\n"
- "All rights reserved."
- ))
-
- ;=============================================================================
- ; make sure we are running under a 2.04 ROM
-
- (if (< (/ (getversion) 65536) 37)
- (
- (abort #bad-kick)
- ))
-
- ;=============================================================================
-
- (message #install-msg)
-
- (set prgdir
- (askdir
- (prompt #where-prg)
- (help @askdir-help)
- (default "Sys:Utilities")
- )
- )
-
- (copyfiles
- (source Splitterprg)
- (dest prgdir)
- (infos)
- (noposition)
- )
-
- (if
- (askbool
- (prompt (#confirm-doc))
- (help @askbool-help)
- )
- (
- (set docdir
- (askdir
- (prompt #where-doc)
- (help @askdir-help)
- (default prgdir)
- )
- )
- (copyfiles
- (source Splitterdoc)
- (dest docdir)
- (infos)
- (noposition)
- )
- )
- )
-
- (copylib
- (prompt "\n" #copy-reqtools)
- (help @copylib-help)
- (source rqtlib)
- (dest "Libs:")
- (confirm)
- )
-
-
- (if
- (askbool
- (prompt (#confirm-lha))
- (help @askbool-help)
- )
- (
- (set lhadir
- (askdir
- (prompt #where-lha)
- (help @askdir-help)
- (default "C:")
- )
- )
- (copylib
- (prompt "\n" #copy-lha)
- (help @copylib-help)
- (source lhafile)
- (dest lhadir)
- (confirm)
- )
- )
- )
-
-